﻿<%
Dim Admin_Ip
Admin_Ip=getIP()

'ip封锁
ipLockAdmin(Admin_Ip)

sid=getFilter("sid","")

set rsqq=server.createobject("adodb.recordset")
Sqlqq="select * from 74hu_admin where sid='"&sid&"'"
rsqq.open Sqlqq,conn,1,3
if NOT rsqq.eof then
	HU_logintime=rsqq("dltime")
	if DateDiff("n",HU_logintime,now)>25 then
		response.redirect "/admin/login.asp"
	else
		rsqq("dltime")=now()
		rsqq.update()
	end if
else
	response.redirect "/admin/login.asp"
end if

if rsqq("sid")<>sid Or rsqq("lastip")<>Admin_Ip then
	response.redirect "/admin/login.asp"
end if



KEYid=rsqq("ID")
keyuser=rsqq("username")
key=rsqq("key")
keyids=rsqq("classids")

rsqq.close
set rsqq=nothing

%>